' 通过 PtrSafe 解决 64 位系统下的异常

'===================================================
' Declare
'===================================================
' 短路径处理声明，参考:
' https://visualbasic.happycodings.com/files-directories-drives/code35.html
'
' 参考:
' https://social.technet.microsoft.com/Forums/officeocs/zh-CN/e292e648-3651-4600-8b86-b8bd65b38081/33509352012231264203013199532479199782035129992652922101724517?forum=officesystemzhchs
Public Declare PtrSafe Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
    ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long

